            
                          لكي يتم حفظ الملفات  بشكل صحيح تاكد من تطابق  مسار الحفظ داخل الكود والجهاز الخاص بك او تعديله   في الاسطر التالية
Code1 
Public Sub Split_Sheet_condition_of_the_week()

  1)  ST_WS_Data = "E:\"  ' قم بتغييره بما يناسبك
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Code2
Sub transfert()            '
                      
2)                                                 ' قم بتغييره بما يناسبك

SH.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\فرز البيانات الأسبوعية\" & SH.Name & "_" & Format(Now, "MMMM") & ".pdf", _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False

3)                                             ' قم بتغييره بما يناسبك

Feuil2.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\فرز البيانات الأسبوعية\" & dataSheet & "_" & Format(Now, "MMMM") & ".pdf", _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False    